﻿<!-- #include file="ding.asp" -->
<!-- #include file="mymin.asp" -->
<%Call Head2()%>
<%
	w "<title>统计清零</title></head><body><div class='main400'>"
IF KEY<>0 then
	Call Error2("你的权限不足！")
end if
dim p
p=trim(request.QueryString("p"))
if p<>"" then
	myconn.Execute"delete from 74hu_Iprr where id<>1"
	myconn.Execute"update 74hu_Counter set HU_Counter=0,HU_Yesterday=0,HU_Today=0,HU_Date='"&time_date&"',HU_Yays=1,HU_Browser=0,HU_Tod=0,HU_Browsers=0 where id=1"
	Response.Write "记录清空成功!<br/>"
else
	Response.Write "注意:本操作将清空所有统计记录,确定要清空吗？<br/>"
	Response.Write "<a href=""llqk.asp?sid="&sid&"&amp;p=1"">是,确定清空</a><br/>"
	Response.Write "<a href=""lltj.asp?sid="&sid&""">不,取消操作</a><br/>"
end if
%>
<a href="lltj.asp?sid=<%=sid%>">[流量统计]</a><%Call rootLast2%>